home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
Invisible Universe ƒ
/
INTRO2.DIR
/
00135_Script_135
< prev
Wrap
Text File
|
1995-11-08
|
669b
|
33 lines
on fadeSoundChan chan
-- Be sure to update copy that lives in INTRO2.DIR
if not soundBusy(chan) then exit
if the multiSound then
set v = the volume of sound chan
repeat while v > 0
set v = v / 2
set the volume of sound chan = v
set t = the ticks + 30
repeat while the ticks < t
go to the frame
end repeat
end repeat
else
sound fadeOut chan,120
set t = the ticks + 360 -- dmd this long?
repeat while the ticks < t
updateStage
end repeat
end if
sound stop chan
set the volume of sound chan = 255
end fadeSoundChan